EP_SHW /* Writen by M. C. Dukes 0 /* 7-12-91 Rev 1 /* C) Erudition 1991 /* All rights reserved CNTRL /GOSUB INTRO /GOSUB START /GOSUB JAN TEXT3 PUSH UP NONESLOW PART172 13 239 22 136 145 /GOSUB F1 NONE /GOSUB FEB TEXT3 PUSH UP NONESLOW PART172 23 239 32 136 145 /GOSUB F2 /GOSUB MAR TEXT3 PUSH UP NONESLOW PART244 2 311 11 136 145 /GOSUB F3 /GOSUB APR TEXT3 PUSH UP NONESLOW PART244 12 311 21 136 145 /GOSUB F4 /GOSUB MAY TEXT3 PUSH UP NONESLOW PART244 23 311 32 136 145 /GOSUB F5 /GOSUB JUN TEXT3 PUSH UP NONESLOW PART244 33 311 42 136 145 /GOSUB F6 /GOSUB JUL TEXT3 PUSH UP NONESLOW PART244 43 311 52 136 145 /GOSUB F7 /GOSUB AUG TEXT3 PUSH UP NONESLOW PART244 53 311 62 136 145 /GOSUB F8 /GOSUB SEP TEXT3 PUSH UP NONESLOW PART172 3 239 12 136 145 /GOSUB F9 /GOSUB OCT TEXT3 PUSH UP NONESLOW PART244 63 311 72 136 145 /GOSUB F10 /GOSUB NOV TEXT3 PUSH UP NONESLOW PART244 72 311 81 136 145 /GOSUB F11 /GOSUB DEC TEXT3 PUSH UP NONESLOW PART172 72 239 81 136 145 /GOSUB F12 /GOSUB WAVE KEY /GOTO CNTRL /END INTRO TITLE CHECKER LEFT NONEFAST8 FULL HEARYEE EXPLODE UP SLOW0 TEXT1 REPLACE DOWN 60 2 PART144 0 319 134 144 4 TEXT1 FADE MED KEY 132 179 319 194 128 160 SCROLL CRUSH OUT-V WHT SLOW0 FULL TEXT2 FADE 5 PART0 0 215 88 20 60 /INPUT 0 0 TEXT2 0 87 235 115 16 162 /INPUT 1 /IF S GOTO RET KEY SCROLL MED 0 0 0 239 199 SAME TEXT2 SLOW2 0 120 215 133 20 84 1-6 0 16 31 75 92 236 60 /GOSUB PKC TEXT2 SLOW2 0 133 215 159 12 61 TEXT2 0 160 167 172 24 92 1-6 132 30 191 94 236 59 1-6 244 28 303 92 236 59 TEXT2 2 8 173 163 186 44 108 1-6 2 12 125 75 190 232 59 1-6 0 128 125 191 190 232 59 /GOSUB PKC SCROLL MED 0 0 0 231 197 SAME TEXT3 SLOW2 0 0 167 23 36 70 TEXT3 0 24 167 36 36 96 1-6 244 126 307 189 236 60 7-12 16 28 79 91 232 60 7-12 128 28 191 91 236 60 /GOSUB PKC TEXT3 SLOW2 8 37 195 72 28 60 TEXT3 8 72 147 98 28 99 7-12 236 26 303 92 232 59 7-12 16 122 83 188 232 59 7-12 128 122 195 188 232 59 7-12 236 122 303 188 232 59 /GOSUB PKC /RETURN START CASTLE EXPLODE UP NONESLOW0 FULL SHIP PUSH LEFT 10 2 PART164 69 319 135 196 24 SMSCROLL SPLIT OUT-H MED 20 129 315 195 12 136 /RETURN JAN TEXT3 CRUSH OUT-H MED 0 136 150 307 172 76 162 TEXT3 REPLACE RIGHT 172 3 239 12 96 174 TEXT3 176 13 235 22 192 174 /INPUT 1 /IF B GOTO RET SMSCROLL FADE FAST0 64 151 271 182 56 158 TEXT2 MED 4 8 120 183 132 72 167 /GOTO JAN 0 FEB TEXT3 CRUSH OUT-H MED 0 136 173 307 196 76 162 TEXT3 REPLACE RIGHT 172 23 239 32 96 175 TEXT3 248 63 307 72 192 174 /INPUT 1 /IF A GOTO RET TEXT2 FADE NONESLOW4 0 160 187 185 68 161 /GOTO FEB 0 MAR TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 256 2 307 11 96 175 TEXT3 172 72 239 81 192 174 /INPUT 1 /IF A GOTO RET TEXT2 FADE NONESLOW4 0 160 187 185 68 161 /GOTO MAR 0 APR TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 256 53 315 62 96 175 TEXT3 256 12 295 21 192 174 /INPUT 1 /IF B GOTO RET TEXT2 FADE NONESLOW4 0 160 187 185 68 161 /GOTO APR 0 MAY TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 260 43 295 52 96 175 TEXT3 260 23 299 32 192 175 /INPUT 1 /IF B GOTO RET TEXT2 FADE NONESLOW4 0 160 187 185 68 161 /GOTO MAY 0 JUN TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 260 33 295 42 96 175 TEXT3 252 63 307 72 192 175 /INPUT 1 /IF A GOTO RET /GOSUB LST3 /GOTO JUN 0 JUL TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 244 73 311 82 96 175 TEXT3 252 43 307 52 192 175 /INPUT 1 /IF B GOTO RET /GOSUB LST3 /GOTO JUL 0 AUG TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 256 2 299 11 96 175 TEXT3 252 53 303 62 192 175 /INPUT 1 /IF B GOTO RET /GOSUB LST3 /GOTO AUG 0 SEP TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 172 3 239 12 96 175 TEXT3 172 13 239 22 192 175 /INPUT 1 /IF A GOTO RET /GOSUB LST4 /GOTO SEP 0 OCT TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 252 63 307 72 96 175 TEXT3 260 23 295 32 192 175 /INPUT 1 /IF A GOTO RET /GOSUB LST4 /GOTO OCT 0 NOV TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 244 72 307 81 96 175 TEXT3 256 33 295 42 192 175 /INPUT 1 /IF A GOTO RET /GOSUB LST4 /GOTO NOV 0 DEC TEXT3 CRUSH OUT-H MED 0 136 173 315 196 76 162 TEXT3 REPLACE RIGHT 172 72 239 81 96 175 TEXT3 256 33 295 42 192 175 /INPUT 1 /IF A GOTO RET /GOSUB LST4 /GOTO DEC 0 F1 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 88 48 95 72 136 30 /CLEAR n 2 /RETURN SHIP F2 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 84 48 103 72 72 30 /CLEAR n 2 /RETURN SHIP F3 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 96 30 99 54 56 30 /CLEAR n 2 /RETURN SHIP F4 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 88 48 95 72 36 30 /CLEAR n 2 /RETURN F5 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 84 48 103 72 40 30 /CLEAR n 2 /RETURN F6 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 80 55 107 79 52 4 /CLEAR n 2 /RETURN SHIP F7 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 88 45 95 73 116 26 /CLEAR n 2 /RETURN F8 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 80 48 103 78 56 24 /CLEAR n 2 /RETURN F9 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 84 48 99 72 104 30 /CLEAR n 2 /RETURN SHIP F10 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 84 48 103 70 120 32 /CLEAR n 2 /RETURN SHIP F11 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 SHIP FADE .5 80 31 107 81 84 4 /CLEAR n 2 /RETURN SHIP F12 SHIP DIAGONALUP FAST0 96 132 131 163 192 46 /CLEAR DOWN 96 132 131 163 192 46 SHIP DIAGONALUP FAST 96 132 131 163 192 46 /CLEAR DOWN .5 96 132 131 163 192 46 KABOOM EXPLODE OUT-V .5 60 18 219 150 12 0 CASTLE FADE n 10 0 164 29 315 135 20 29 /RETURN RET /RETURN 1 PKC /INPUT 0 TEXT1 0 0 158 211 173 16 170 /INPUT 1 KEY SCROLL FAST0 0 0 231 199 SAME /RETURN SLOW LST4 TEXT3 FADE NONESLOW6 4 37 191 60 68 162 SMSCROLL FAST0 64 155 271 178 56 162 TEXT3 SLOW4 8 61 83 72 128 167 TEXT3 6 8 73 151 98 92 162 /RETURN LST3 SMSCROLL FADE NONEFAST0 72 155 259 178 68 162 TEXT3 SLOW6 8 0 151 23 92 162 SMSCROLL FADE NONEFAST0 68 155 267 178 60 162 TEXT3 SLOW6 12 25 159 36 84 168 /RETURN WAVE CASTLE FADE NONEFAST0 PART0 115 319 198 0 114 SHIP PUSH RIGHT 25 0 185 319 190 0 91 ISLAND EXPLODE OUT-V FAST2 128 2 255 23 200 103 ISLAND FADE MED 0 72 144 155 190 36 50 CASTLE FAST 0 98 319 199 196 98 ISLAND MED 3 132 27 271 67 100 128 CASTLE FAST0 0 98 319 199 SAME ISLAND MED 2 124 69 279 86 92 99 ISLAND 36 8 107 91 136 117 CASTLE 0 36 98 283 115 40 99 ISLAND 2 124 87 215 105 128 99 ISLAND 124 108 275 126 96 99 /INPUT 0 TRES TRESURE FADE FAST0 12 10 99 94 136 119 TRESURE 92 10 175 94 132 119 TRESURE 176 10 259 94 132 119 TRESURE 4 110 95 194 128 119 TRESURE 88 110 179 194 128 119 TRESURE 176 110 267 194 132 119 /INPUT 0 /IFNOT KEY GOTO TRES SCROLL EXPLODE IN-H 0 FULL TEXT4 FADE MED 6 PART0 0 183 63 64 63 TEXT4 0 60 183 123 64 63 TEXT4 0 117 183 180 64 63 /INPUT 0 0 TEXT4 KEY 8 177 295 196 12 165 /INPUT 1 /IFNOT Q GOTO RET /END /RETURN TEST /gosub start /GOSUB JAN /gosub F12 /end